void IncEquLst (n, Lst)
int n;
int *Lst;
{
   int i,j, Old, New;

   New = -1;
   for (i=1; i<n; i++) {
      Old = Lst[i];
      if (Old >= 0) {
         for (j=i; j<n; j++)
           if (Lst[j]==Old)  Lst[j] = New;
         New--;
   }  }

   for (i=1; i<n; i++)  Lst[i] = abs (Lst[i]);
}
